'Dieses Programm schrieb fuer Sie
     'Detlef Kornatz
     'Feuerbachstrasse 6
     'D-4300 ESSEN 1
'**************************************************************************

     SCREEN 1,640,256,4,2
     WINDOW 2,,,0,1
     CLS
     PALETTE 0,0.17,0.38,0   'dunkelgruen
     FOR i=1 TO 8
     PALETTE i,0,i/17,i/12 'PALETTEANWEISUNG kann man ändern!!
     NEXT i
     FOR i=1 TO 12
     LINE (i+22,7+i)-(530-i,46-i),i-1,b     'TITEL
     LINE (i+532,7+i)-(630-i,46-i),i-1,b     'ende
     LINE (i+22,47+i)-(216-i,86-i),i-1,b    'STROM
     LINE (i+22,87+i)-(216-i,126-i),i-1,b   'SPANNUNG
     LINE (i+22,127+i)-(216-i,166-i),i-1,b  'RG*R1+R2
     LINE (i+22,167+i)-(216-i,206-i),i-1,b  'STROM a WIDER
     LINE (i+22,207+i)-(216-i,246-i),i-1,b  'RG
     LINE (i+222,47+i)-(630-i,246-i),i-1,b  'AUSGABEWINDOW
     NEXT i
     COLOR 9,0
     LOCATE 4,6 :PRINT " DIE PARALLELSCHALTUNG VON WIDERSTÄNDEN UND IHRE BERECHNUNG"
     LOCATE 4,72:PRINT "ENDE"
     COLOR 10,0
     LOCATE 9,13:PRINT  "STROM"
     LOCATE 14,11:PRINT "SPANNUNG"
     LOCATE 19,6:PRINT  "WIDERSTAND + STROM"
     LOCATE 24,6:PRINT  "STROM + WIDERSTAND"
     LOCATE 29,8:PRINT  "GESAMTWIDERSTAND"
 anfang:
     ON MOUSE GOSUB mausdruck
     MOUSE ON
     WHILE 1 : WEND
 mausdruck:
     druck=MOUSE(0)
     x=MOUSE(3) : y=MOUSE(4)
     
   IF x>35 AND x<203 AND y>60 AND y<73   THEN GOSUB stro
   IF x>35 AND x<203 AND y>100 AND y<113 THEN GOSUB span
   IF x>35 AND x<203 AND y>140 AND y<153 THEN GOSUB stwi
   IF x>35 AND x<203 AND y>180 AND y<193 THEN GOSUB wist
   IF x>35 AND x<203 AND y>220 AND y<233 THEN GOSUB gesamt
   IF x>545 AND x<620 AND y>20 AND y<33  THEN GOSUB ende
   GOTO anfang
stro:
   SOUND 293.66,5,100
   WINDOW 3,,(240,63)-(611,221),0,1
   COLOR 10,0
   CLS:TIMER OFF
   LOCATE 3,8  
   INPUT "WIDERSTAND R1:   ";w
   LOCATE 6,8
   INPUT "WIDERSTAND R2:   ";ww
   LOCATE 9,8
   INPUT "SPANNUNG     :   ";sp
   rg=(w*ww)/(w+ww) 
   COLOR 14,0 :LOCATE 12,8:PRINT "GESAMTSTROM      =":LOCATE 12,38:PRINT "AMPER"
   LOCATE 12,27:PRINT USING "#####.###"; sp/rg
   COLOR 14,0 :LOCATE 14,8:PRINT "GESAMTWIDERSTAND =":LOCATE 14,38:PRINT "OHM"
   LOCATE 14,27:PRINT USING "#####.###";(w*ww)/(w+ww)
   COLOR 14,0 :LOCATE 16,8:PRINT "TEILSTROM am R1  =":LOCATE 16,38:PRINT "AMPER"
   LOCATE 16,27:PRINT USING "#####.###"; sp/w
   COLOR 14,0 :LOCATE 18,8:PRINT "TEILSTROM am R2  =":LOCATE 18,38:PRINT "AMPER"
   LOCATE 18,27:PRINT USING "#####.###"; sp/ww  
   ON TIMER (3) GOSUB strom
   TIMER ON
   WHILE 3:SLEEP:WEND
strom:
   CLS:TIMER OFF
  SOUND 493.88,5,100
  SOUND 293.66,5,100
   COLOR 8,0
   LOCATE 20,15:PRINT USING"#####.###";sp:LOCATE 20,26:PRINT"VOLT"
   CIRCLE (50,152),4,1
   LINE (50,50)-(50,150),1
   LINE (50,50)-(100,50),1
   LINE (100,40)-(250,60),9,b   'R1
   LINE (100,80)-(250,100),9,b   'R2
   LINE (50,90)-(100,90),1
   LINE (250,50)-(300,50),1
   LINE (250,90)-(300,90),1
   LINE (300,50)-(300,150),1
   CIRCLE (300,152),4,1
   COLOR 15,0
   LOCATE 17,7:PRINT "^":LOCATE 7,10:PRINT ">":LOCATE 12,10:PRINT">"
   LOCATE 17,14:PRINT USING"#####.###";sp/rg:LOCATE 17,26:PRINT"AMPER"
   LOCATE 5,14:PRINT USING"#####.###";sp/w:LOCATE 5,26:PRINT"Amper"
   LOCATE 10,14:PRINT USING"#####.###";sp/ww:LOCATE 10,26:PRINT"Amper"
   COLOR 9,0
   LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
   LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
   LOCATE 15,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 15,26:PRINT"OHM RG"
   GOTO anfang
   RETURN
span:
   SOUND 493.88,5,100
   WINDOW 3,,(240,63)-(611,221),0,1
   COLOR 10,0
   CLS:TIMER OFF
   LOCATE 3,8 
   INPUT "WIDERSTAND R1:   ";w
   LOCATE 6,8
   INPUT "WIDERSTAND R2:   ";ww
   LOCATE 9,8
   INPUT "STROM        :   ";st
   rg=(w*ww)/(w+ww)
   COLOR 14,0 :LOCATE 12,8:PRINT "GESAMTSPANNUNG   =":LOCATE 12,38:PRINT "VOLT"
   LOCATE 12,27:PRINT USING "#####.###"; st*rg :sp=st*rg
   COLOR 14,0 :LOCATE 14,8:PRINT "GESAMTWIDERSTAND =":LOCATE 14,38:PRINT "OHM"
   LOCATE 14,27:PRINT USING "#####.###";(w*ww)/(w+ww) 
   COLOR 14,0 :LOCATE 16,8:PRINT "TEILSTROM am R1  =":LOCATE 16,38:PRINT "AMPER"
   LOCATE 16,27:PRINT USING "#####.###"; sp/w
   COLOR 14,0 :LOCATE 18,8:PRINT "TEILSTROM am R2  =":LOCATE 18,38:PRINT "AMPER"
   LOCATE 18,27:PRINT USING "#####.###"; sp/ww
   ON TIMER (3) GOSUB spannung
   TIMER ON
   WHILE 3:SLEEP:WEND
spannung:
  SOUND 493.88,5,100
  SOUND 293.66,5,100
   CLS:TIMER OFF
   COLOR 8,0
   LOCATE 20,15:PRINT USING"#####.###";sp:LOCATE 20,26:PRINT"VOLT"
   CIRCLE (50,152),4,1
   LINE (50,50)-(50,150),1
   LINE (50,50)-(100,50),1
   LINE (100,40)-(250,60),9,b   'R1
   LINE (100,80)-(250,100),9,b   'R2
   LINE (50,90)-(100,90),1
   LINE (250,50)-(300,50),1
   LINE (250,90)-(300,90),1
   LINE (300,50)-(300,150),1
   CIRCLE (300,152),4,1
   COLOR 15,0
   LOCATE 17,7:PRINT "^":LOCATE 7,10:PRINT ">":LOCATE 12,10:PRINT">"
   LOCATE 17,14:PRINT USING"#####.###";sp/rg:LOCATE 17,26:PRINT"AMPER"
   LOCATE 5,14:PRINT USING"#####.###";sp/w:LOCATE 5,26:PRINT"Amper"
   LOCATE 10,14:PRINT USING"#####.###";sp/ww:LOCATE 10,26:PRINT"Amper"
   COLOR 9,0
   LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
   LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
   LOCATE 15,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 15,26:PRINT"OHM RG"
   GOTO anfang
   RETURN
stwi:
   SOUND 493.88,5,100
   WINDOW 3,,(240,63)-(611,221),0,1
   COLOR 10,0
   CLS:TIMER OFF
   LOCATE 3,8
   INPUT "WIDERSTAND R1:   ";w
   LOCATE 6,8
   INPUT "SPANNUNG     :   ";sp
   LOCATE 9,8
   INPUT "STROM        :   ";st
   rg=sp/st
   ww=(w*rg)/(w-rg)
   COLOR 14,0 :LOCATE 12,8:PRINT "WIDERSTAND R2    =":LOCATE 12,38:PRINT "OHM"
   LOCATE 12,27:PRINT USING "#####.###";(w*rg)/(w-rg)
   COLOR 14,0 :LOCATE 14,8:PRINT "GESAMTWIDERSTAND =":LOCATE 14,38:PRINT "OHM"
   LOCATE 14,27:PRINT USING "#####.###";(w*ww)/(w+ww) 
   COLOR 14,0 :LOCATE 16,8:PRINT "TEILSTROM am R1  =":LOCATE 16,38:PRINT "AMPER"
   LOCATE 16,27:PRINT USING "#####.###"; sp/w
   COLOR 14,0 :LOCATE 18,8:PRINT "TEILSTROM am R2  =":LOCATE 18,38:PRINT "AMPER"
   LOCATE 18,27:PRINT USING "#####.###"; sp/ww 
   ON TIMER (3) GOSUB spawi
   TIMER ON
   WHILE 3:SLEEP:WEND
spawi:
  SOUND 493.88,5,100
  SOUND 293.66,5,100
   CLS:TIMER OFF
   COLOR 8,0
   LOCATE 20,15:PRINT USING"#####.###";sp:LOCATE 20,26:PRINT"VOLT"
   CIRCLE (50,152),4,1
   LINE (50,50)-(50,150),1
   LINE (50,50)-(100,50),1
   LINE (100,40)-(250,60),9,b   'R1
   LINE (100,80)-(250,100),9,b   'R2
   LINE (50,90)-(100,90),1
   LINE (250,50)-(300,50),1
   LINE (250,90)-(300,90),1
   LINE (300,50)-(300,150),1
   CIRCLE (300,152),4,1
   COLOR 15,0
   LOCATE 17,7:PRINT "^":LOCATE 7,10:PRINT ">":LOCATE 12,10:PRINT">"
   LOCATE 17,14:PRINT USING"#####.###";sp/rg:LOCATE 17,26:PRINT"AMPER"
   LOCATE 5,14:PRINT USING"#####.###";sp/w:LOCATE 5,26:PRINT"Amper"
   LOCATE 10,14:PRINT USING"#####.###";sp/ww:LOCATE 10,26:PRINT"Amper"
   COLOR 9,0
   LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
   LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
   LOCATE 15,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 15,26:PRINT"OHM RG"
   GOTO anfang
   RETURN
wist:
   SOUND 493.88,5,100
   WINDOW 3,,(240,63)-(611,221),0,1
   COLOR 10,0
   CLS:TIMER OFF  
   LOCATE 3,8 
   INPUT "STROM  am  R1:   ";i
   LOCATE 6,8
   INPUT "SPANNUNG     :   ";sp
   LOCATE 9,8
   INPUT "STROM        :   ";st 
   COLOR 14,0 :LOCATE 12,8:PRINT "GESAMTWIDERSTAND =":LOCATE 12,38:PRINT "OHM"
   LOCATE 12,27:PRINT USING "#####.###";sp/st :rg=sp/st
   COLOR 14,0 :LOCATE 14,8:PRINT "WIDERSTAND R1    =":LOCATE 14,38:PRINT "OHM"
   LOCATE 14,27:PRINT USING "#####.###";sp/i  : w=sp/i 
   COLOR 14,0 :LOCATE 16,8:PRINT "WIDERSTAND R2    =":LOCATE 16,38:PRINT "OMM"
   LOCATE 16,27:PRINT USING "#####.###";(w*rg)/(w-rg) :ww=(w*rg)/(w-rg)
   COLOR 14,0 :LOCATE 18,8:PRINT "TEILSTROM am R2  =":LOCATE 18,38:PRINT "AMPER"
   LOCATE 18,27:PRINT USING "#####.###"; sp/ww 
   ON TIMER (3) GOSUB spawid
   TIMER ON
   WHILE 3:SLEEP:WEND
spawid:
  SOUND 493.88,5,100
  SOUND 293.66,5,100
   CLS:TIMER OFF
   COLOR 8,0
   LOCATE 20,15:PRINT USING"#####.###";sp:LOCATE 20,26:PRINT"VOLT"
   CIRCLE (50,152),4,1
   LINE (50,50)-(50,150),1
   LINE (50,50)-(100,50),1
   LINE (100,40)-(250,60),9,b   'R1
   LINE (100,80)-(250,100),9,b   'R2
   LINE (50,90)-(100,90),1
   LINE (250,50)-(300,50),1
   LINE (250,90)-(300,90),1
   LINE (300,50)-(300,150),1
   CIRCLE (300,152),4,1
   COLOR 15,0
   LOCATE 17,7:PRINT "^":LOCATE 7,10:PRINT ">":LOCATE 12,10:PRINT">"
   LOCATE 17,14:PRINT USING"#####.###";sp/rg:LOCATE 17,26:PRINT"AMPER"
   LOCATE 5,14:PRINT USING"#####.###";sp/w:LOCATE 5,26:PRINT"Amper"
   LOCATE 10,14:PRINT USING"#####.###";sp/ww:LOCATE 10,26:PRINT"Amper"
   COLOR 9,0
   LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
   LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
   LOCATE 15,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 15,26:PRINT"OHM RG"
   GOTO anfang
   RETURN
gesamt:
   SOUND 493.88,5,100
   WINDOW 3,,(240,63)-(611,221),0,1
   COLOR 10,0
   CLS:TIMER OFF
   LOCATE 3,8  
   INPUT "WIDERSTAND R1:   ";w
   LOCATE 6,8
   INPUT "WIDERSTAND R2:   ";ww
   rg=(w*ww)/(w+ww) 
   COLOR 14,0 :LOCATE 14,8:PRINT "GESAMTWIDERSTAND =":LOCATE 14,38:PRINT "OHM"
   LOCATE 14,27:PRINT USING "#####.###";(w*ww)/(w+ww)
   ON TIMER (3) GOSUB widerstand
   TIMER ON
   WHILE 3:SLEEP:WEND
widerstand:
  SOUND 493.88,5,100
  SOUND 293.66,5,100
   CLS:TIMER OFF
   CIRCLE (50,152),4,1
   LINE (50,50)-(50,150),1
   LINE (50,50)-(100,50),1
   LINE (100,40)-(250,60),9,b   'R1
   LINE (100,80)-(250,100),9,b   'R2
   LINE (50,90)-(100,90),1
   LINE (250,50)-(300,50),1
   LINE (250,90)-(300,90),1
   LINE (300,50)-(300,150),1
   CIRCLE (300,152),4,1
   COLOR 9,0
   LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
   LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
   COLOR 2,0
   LOCATE 17,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 17,26:PRINT"OHM RG"
   GOTO anfang
   RETURN
ende:
  SOUND 493.88,5,100
  SOUND 293.66,5,100
WINDOW CLOSE 2
SCREEN CLOSE 1
 END
GOTO mausdruck